home *** CD-ROM | disk | FTP | other *** search
/ Software Vault: The Gold Collection / Software Vault - The Gold Collection (American Databankers) (1993).ISO / cdr01 / halcn305.zip / GSDMO_01.PAS < prev    next >
Pascal/Delphi Source File  |  1993-05-02  |  1KB  |  43 lines
  1. program GSDMO_01;
  2. {------------------------------------------------------------------------------
  3.                               DBase File Creator
  4.  
  5.        Copyright (c)  Richard F. Griffin
  6.  
  7.        20 January 1993
  8.  
  9.        102 Molded Stone Pl
  10.        Warner Robins, GA  31088
  11.  
  12.        -------------------------------------------------------------
  13.         This program creates a test file for the next several programs.
  14.  
  15.  
  16.        The GSDMO_01.DBF file will be created by using the MakeTestData
  17.        procedure in GSOB_GEN.PAS.
  18.  
  19. -------------------------------------------------------------------------------}
  20.  
  21. uses
  22.    GSOB_Gen,
  23.    {$IFDEF WINDOWS}
  24.       WinCRT,
  25.       WinDOS;
  26.    {$ELSE}
  27.       CRT,
  28.       DOS;
  29.    {$ENDIF}
  30.  
  31. begin
  32.    ClrScr;
  33.  
  34. {-----------------------------------------------------------------------------}
  35. {  This call will create a .DBF file containing 20 records without memos.                   }
  36. {  See the GSOB_GEN.PAS file to see how it works.                              }
  37. {-----------------------------------------------------------------------------}
  38.  
  39.    writeln('Creating GSDMO_01.DBF');
  40.    MakeTestData(3, 'GSDMO_01', 20, false);
  41.    writeln('GSDMO_01.DBF Created');
  42. end.
  43.